From 43ab8ca40662f6cc981c39901ec563ef422a6a64 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 12 Mar 1993 12:04:55 +0000 Subject: [PATCH] (query-replace-map): New keymap. (perform-replace): Use query-replace-map. (query-replace, query-replace-regexp, map-query-replace-regexp): (replace-string, replace-regexp): Don't print `done' if unread chars. --- lisp/replace.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/replace.el b/lisp/replace.el index 3f730ec3f2f..3c195224ad9 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -463,7 +463,7 @@ which will run faster and do exactly what you probably want." (replace-match next-replacement nocasify literal) (setq replace-count (1+ replace-count))) (undo-boundary) - (let (done replaced key) + (let (done replaced key def) ;; Loop reading commands until one of them sets done, ;; which means it has finished handling this occurrence. (while (not done) -- 2.30.2